home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
dba1286.arc
/
TESTMENU.SC
< prev
next >
Wrap
Text File
|
1986-11-04
|
705b
|
26 lines
;-------------------------------------- TestMenu.SC
;-------------- Test commands for displaying menus.
CLEAR
;--- Display a menu, store selection in MenuChoice.
SHOWMENU
"Beep" : "Make a few beeps",
"Flash" : "Display a flashing message",
"Colors" : "Play the Colors script",
"Nothing" : "Don't do anything"
TO MenuChoice
;--------------- Respond to menu choice.
SWITCH
CASE MenuChoice = "Beep" :
BEEP BEEP BEEP BEEP
CASE MenuChoice = "Flash" :
@ 12,20
STYLE BLINK
?? "Here is your flashing message..."
SLEEP 5000
CASE MenuChoice = "Colors" :
CLEAR
PLAY "Colors"
ENDSWITCH